-- module TestDBS where

import DBS
import Loan
import Date

{- Films -}

{- Loans -}
l1, l2, l3 :: Loan
l1 = Loan 1 (1, 1, (Date 1 5 2010), (Date 1 6 2010), Empty)
l2 = Loan 2 (1, 2, (Date 2 5 2010), (Date 2 6 2010), Empty)
l3 = Loan 3 (2, 1, (Date 3 5 2010), (Date 3 6 2010), Empty)

dl1, dl2 :: DBS
dl1 = DBS 1 [] 1 [] 1 []
dl2 = setLoans [l1,l2,l3] dl1

ll = getLoans dl2
-- ll = [l1,l2,l3]

lx = selectLoan 2 dl2
-- lx = l2
